﻿Imports Microsoft.VisualBasic
Imports System.Runtime.InteropServices

Public Class clsPrint

#Region "Printer"
    <DllImport("winspool.drv", entrypoint:="SetDefaultPrinter", _
           setlasterror:=True, CharSet:=CharSet.Auto, _
           exactspelling:=False, _
           CallingConvention:=CallingConvention.StdCall)> _
           Private Shared Function SetDefaultPrinter(ByVal PrinterName As String) As Boolean

    End Function

    Public Function Set_Default_Printer(ByVal name As String) As Boolean
        Return SetDefaultPrinter(name)
    End Function
  
#End Region

End Class
